home *** CD-ROM | disk | FTP | other *** search
/ Magnum One / Magnum One (Mid-American Digital) (Disc Manufacturing).iso / d18 / turbotut.arc / STRARRAY.PAS < prev    next >
Encoding:
Pascal/Delphi Source File  |  1989-06-30  |  751 b   |  28 lines
  1. PROGRAM pure_pascal_strings;
  2.  
  3. TYPE long_string  = ARRAY[1..25] OF CHAR;
  4.      string10     = ARRAY[1..10] OF CHAR;
  5.      string12     = ARRAY[1..12] OF CHAR;
  6.  
  7. VAR  first_name   : string10;
  8.      initial      : CHAR;
  9.      last_name    : string12;
  10.      full_name    : long_string;
  11.      index        : INTEGER;
  12.  
  13. BEGIN  (* main program *)
  14.   first_name := 'John      ';
  15.   initial := 'Q';
  16.   last_name := 'Doe         ';
  17.   WRITELN(first_name,initial,last_name);
  18.  
  19.   FOR index := 1 TO 10 DO
  20.     full_name[index] := first_name[index];
  21.   full_name[11] := initial;
  22.   FOR index := 1 TO 12 DO
  23.     full_name[index + 11] := last_name[index];
  24.   FOR index := 24 TO 25 DO full_name[index] := ' ';
  25.   WRITELN(full_name);
  26. END.  (* main program *)
  27.  
  28.